10 DV=PEEK(186):IFDV<8THENDV=8
20 NF=3:C=1
30 FORI=1TONF:READM$(I):NEXT
40 DATA"[212]ITLE"
50 DATA"[193]UTHOR"
60 DATA"[196]ATE"
70 S$="                                               "
80 P$="..............................................."
90 PRINT"[147][159]"
100 FORI=1TONF:PRINTITAB(4)M$(I):PRINT:NEXT
110 GETA$:IFA$<"1"ORA$>MID$(STR$(NF),2)THEN110
120 M=VAL(A$):POKE214,M*2:PRINT:PRINTTAB(4)""M$(M)
130 POKE214,2+2*NF:PRINT:PRINTTAB(4);
140 INPUT"[211]TRING";H$:PRINT
150 OPEN2,DV,2,"BOOKS 95,R,S":OPEN4,3,7
160 FORI=1TONF:INPUT#2,B$(I)
170 IFST<>0THENCLOSE2:CLOSE4:GOTO260
180 NEXT
190 IFLEFT$(B$(M),LEN(H$))<>H$THEN240
200 PRINT#4,STR$(C)".";
210 PRINT#4,LEFT$(S$,4-LEN(STR$(C)))B$(1);
220 PRINT#4,LEFT$(P$,40-LEN(B$(1)))B$(2);
230 PRINT#4,LEFT$(P$,26-LEN(B$(2)))B$(3)
240 C=C+1
250 GOTO160
260 PRINT"    [196]ONE!"
270 GETA$:IFA$=""THEN270
280 GOTO90
10000 D=PEEK(186):N$="Q&D WP DB":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END